home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / bytjl86b.arc / P.PRG < prev    next >
Text File  |  1980-01-01  |  4KB  |  19 lines
  1.  ïX▓1º5[Ö"ôENTER DRIVE # FOR PROGRAM DISK (0 OR 1):":àZ1$:ïZ1$│▒"1"»Z1$│▒"0"º1åù787,┼(Z1$):ïX▓0ºX▓1:ôZ1$¬":MAL.6",8,1Éè1420c    x::åK(20),B$(100):ƒ1,0:åEA(100,6),EN$(100),NT(10,3),C$(100),D$(20),MQ(11),MJ(11),MA(11),M1(20,11):åA(100),NT$(10):â.01,1,.005,1E-14,1,1,2E-12,1E-12,.1E-9,10E-9,1,1:â-2,4E-3,1E-4,1E-14,1,5E-12,1E-12,0,0,0,2,1╙    ºâ20E-9,5,.1E-9,15E6,80E-9,.5E-6,.0125,10000,15,-15,0,1:üI▓0ñ11:çMQ(I):é:üI▓0ñ11:çMJ(I):é:üI▓0ñ11:çMA(I):é:Ä≈    ╚ù781,Y1:ù782,X1:ù783,0:₧65520:Ä.
  2. ▄::K(0)▓0:FL▓0:üI▓1ñ├(A$):ï╩(A$,I,1)│▒" "ºFL▓1:ë400<
  3. hïFL▓0º400[
  4. |K(0)▓K(0)¬1:K(K(0))▓I:FL▓0c
  5. Éé:Ä}
  6. ╕::ïF▒(K(0)¬1)ºF$▓"":Äÿ
  7. ïF▓1ºF$▓╚(A$,K(F)½1):Ä╛
  8. ïF▓K(0)¬1ºF$▓╔(A$,├(A$)½K(F½1)):ÄΣ
  9. 0F$▓╩(A$,K(F½1)¬1,K(F)½K(F½1)½1):Ä X::FV▓┼(F$):üI▓1ñ├(F$):X$▓╩(F$,I,1):ï╞(X$¬╟(0))│65º860> °ïX$▓"P"ºFV▓FV¼1E½12:I▓├(F$)] ïX$▓"U"ºFV▓FV¼1E½6:I▓├(F$){  ïX$▓"K"ºFV▓FV¼1E3:I▓├(F$)┤ 4ï((X$▓"M")»(╩(F$,I¬1,1)▓"E"))ºFV▓FV¼1E6:I▓├(F$):ë860╙ HïX$▓"M"ºFV▓FV¼1E½3:I▓├(F$)≥ RïX$▓"N"ºFV▓FV¼1E½9:I▓├(F$)2 \é:Ä:üI▓NñY⌐½1:B$(I¬1)▓B$(I):é:N▓N¬1:ÖY;:àB$(Y):Ä:ïY│1░Y▒NºÄC $ïY▓NºN▓N½1:Äf 8üI▓YñN:B$(I)▓B$(I¬1):é:N▓N½1:ÄIê::Ö"ô":X1▓8:Y1▓0:ì200:Ö"C O M M O D O R E  6 4":X1▓5:Y1▓2:ì200:Ö"C I R C U I T  A N A L Y S I S":X1▓8:Y1▓4:ì200:Ö"P R E P R O C E S S O R":X1▓3:Y1▓6:ì200:Ö"1=LOAD IN FILE FROM DISK":Y1▓8:ì200:Ö"2=LIST INPUT FILE TO SCREEN"<Y1▓10:ì200:Ö"3=LIST INPUT FILE TO PRINTER":Y1▓12:ì200:Ö"4=EDITOR":Y1▓14:ì200:Ö"5=PROCESS INPUT FILE":Y1▓16:ì200:Ö"6=LOAD AND RUN DC ANALYSIS PROGRAM":Y1▓18:ì200:Ö"7=LOAD AND RUN AC ANALYSIS PROGRAM":Ä@î::ù785,0:ù786,192:X▓╖(6):TI$▓"000000"WÉïTI$│"000002"º1424`áì120ï┤ì1160:ä1,X$:ïX$▓"X"░X$▓"D"░X$▓"C"º1542¿▄X1▓┼(X$):ïX1│0░X1▒7º1460▄≡æX1ì13500,1580,1640,1700,4640,21000,21010:ë1460∩ïX$▓"X"º₧64738ïX$▓"D"ºì15506    ïX$▓"C"ºÖ"ô":X1▓╖(7):Ö:Ö"PRESS SHIFT KEY":Æ653,1@
  10. ë1460éÖ"ENTER DRIVE NUMBER (0 OR 1):":ä1,X$:ï┼(X$)│▒0»┼(X$)│▒1º1550ôù787,┼(X$):ÄÖ:░,Ö"ô":Ö:Ö:ïN▓0º1610╨@üI▓1ñN:Æ653,1,1:ÖI;B$(I):éI≥JÖ:Ö"PRESS SHIFT KEY":Æ653,1:Ä h::ïN▓0ºÄ$|ƒ4,4:üI▓1ñN:ÿ4,I;B$(I):é:ÿ4:á4:Ä*ñ:^αì1880:ù198,0:ä1,X$:X1▓┼(X$):ï(X1│0)░(X1▒7)º1760jïX1▓7ºÄû0æX1ì2120,2240,2340,2440,1560,1870:ë1760└NÖ"ARE YOU SURE":ä1,X$:ï╚(X$,1)│▒"Y"ºÄ╟Pè5▓X::Ö"ô":X1▓8:Y1▓0:ì200:Ö"C O M M O D O R E  6 4":X1▓5:Y1▓2:ì200:Ö"C I R C U I T  A N A L Y S I S":X1▓10:Y1▓4:ì200:Ö"E D I T O R  M E N U":X1▓3:Y1▓6:ì200:Ö"1=INPUT MODE":Y1▓8:ì200:Ö"2=LINE EDIT MODE":Y1▓10:ì200:Ö"3=INSERT LINE MODE"D°Y1▓12:ì200:Ö"4=DELETE LINE MODE":Y1▓14:ì200:Ö"5=LIST INPUT TO SCREEN":Y1▓16:ì200:Ö"6=DELETE INPUT FILE":Y1▓18:ì200:Ö"7=RETURN TO MAIN MENU":ÄgH::Ö"ô":ïN│▒0ºüI▓1ñN:ÖI;B$(I):éñpN▓N¬1:ïN▒▓300ºÖ"ARRAY IS FULL, PRESS SHIFT KEY":Æ653,1:Ä╔äÖN;:ä1,B$(N):Ö:ïB$(N)▓""ºN▓N½1:Ä╙¼ë2160┘└:╘Ö"ENTER LINE # TO BE EDITED":Ö:ä1,X$:Y▓┼(X$):ïY│1░Y▒NºÄHⁿÖB$(Y);:üI▓1ñ├(B$(Y)):Ö"¥";:é:ä1,B$(Y):Ö:ë2260N$    :å8    Ö:Ö"ENTER LINE # TO INSERT AT":ä1,X$:Y▓┼(X$):ïY▓0ºÄ┐`    üI▓NñY⌐½1:B$(I¬1)▓B$(I):é:N▓N¬1:Ö:ÖY;:ä1,B$(Y):ë2360┼ê    :£    Ö:Ö"ENTER LINE # TO BE DELETED":ä1,X$:Y▓┼(X$):ïY│1░Y▒NºÄ─    ïY▓NºN▓N½1:ë2460>╪    üI▓YñN:B$(I)▓B$(I¬1):é:N▓N½1:ë2460Z
  11. ïF1▒K(0)░F2▒K(0)ºER▓1:Äê(
  12. F▓F1:ì440:X1$▓F$:F▓F2:ì440:ïX1$▓F$ºER▓2:Äô<
  13. ER▓0:Ä╝P
  14. ::üJ▓1ñNN:A$▓C$(J):ï╚(A$,1)▓"."º2800µî
  15. ì220:F▓1:ì440:X3$▓F$:üK▓1ñN:ïK▓Jº2780┤
  16. ï╚(C$(K),1)│▒╚(X3$,1)º27803╚
  17. A$▓C$(K):ì220:F▓1:ì440:ïF$▓X3$ºER▓3:ì61009▄
  18. éA≡
  19. é:Ä│ ::F▓1:ì440:EN$(J)▓F$:EA(J,0)▓1:F▓2:ì440:EA(J,2)▓┼(F$):F▓3:ì440:EA(J,3)▓┼(F$):F▓4:ì440:ïF$▓""ºER▓1:ì6100:ë2900╫6 ì600:ïFV│1E½12ºER▓4:ì6100:ë2900±@ EA(J,1)▓FV:EA(J,5)▓FVT ïEA(J,2)▓EA(J,3)ºER▓2:ì61001Y EA(J,4)▓0:F▓5:ì440:ïF$▓""ºÄG^ ï╚(F$,3)│▒"TC="ºÄVc F$▓╩(F$,4)lh ì600:EA(J,4)▓FV:Ä≤| ::F▓1:ì440:EN$(J)▓F$:EA(J,0)▓2:F▓2:ì440:EA(J,2)▓┼(F$):F▓3:ì440:EA(J,3)▓┼(F$):F▓4:ì440:EA(J,1)▓1E½14:EA(J,4)▓1:ï╚(F$,3)│▒"IS="º3020!╕ F$▓╔(F$,├(F$)½3):ì600:EA(J,1)▓FV:F▓5:ì440:╠ ïF$▓"OFF"ºEA(J,4)▓½1Zα ïEA(J,2)▓EA(J,3)ºER▓2:ì6100s⌠ EA(J,5)▓DN:DN▓DN¬1:Ĭ0 ::EA(J,0)▓5:ì6040:F▓5:ì440:ïF$▓""ºER▓8:ì6100:ë3160╧H EA(J,4)▓┼(F$):EA(J,5)▓QN:QN▓QN¬1∩X ïEA(J,1)▓EA(J,3)ºER▓2:ì6100Z EA(J,6)▓1:F▓6:ì440:ïF$▓"OFF"ºEA(J,6)▓½1!l ÄRÇ ::EA(J,0)▓6:ì6040:F▓5:ì440:ïF$▓""ºER▓8:ì6100ôÖ EA(J,4)▓┼(F$):EA(J,5)▓JN:JN▓JN¬1:ïEA(J,1)▓EA(J,3)ºER▓2:ì6100┐¬ EA(J,6)▓1:F▓6:ì440:ïF$▓"OFF"ºEA(J,6)▓½1┼╝ Ä°╨ ::EA(J,0)▓7:ì6040:F▓5:ì440:ïF$▓""ºER▓8:ì6100:Ä ε EA(J,4)▓┼(F$):Äé° ::F▓1:ì440:EN$(J)▓F$:EA(J,0)▓9:F▓2:ì440:EA(J,2)▓┼(F$):F▓3:ì440:EA(J,3)▓┼(F$):F▓4:ì440:ì600:ïFV▓0ºER▓7:ì6100:ë3400æ4EA(J,1)▓FV▒HïEA(J,2)▓EA(J,3)ºER▓2:ì6100╖\Ä>